home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
VIKINGW.DIR
/
01647_Script_Raiders
< prev
next >
Wrap
Text File
|
1995-09-12
|
3KB
|
112 lines
global gbeenclicked, gQuest
on VRaidersRollovers
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(5) then
VikingCursor
repeat while rollover(5)
if the mousedown then
set gbeenclicked = 1
else
if gbeenclicked = 1 then
AnimateRaiders
end if
end if
end repeat
else
if rollover(18) then
repeat while rollover(18)
set the locH of sprite 16 to 240
set the locV of sprite 16 to 250
set the locH of sprite 17 to 108
set the locV of sprite 17 to 327
updatestage
end repeat
set the locH of sprite 16 to 940
set the locH of sprite 17 to 908
updatestage
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on AnimateRaiders
ArrowCursor
set RunThruCount = 0
set gCast1 = the castNum of sprite 2
set gCast2 = the castNum of sprite 3
puppetsound "SV310201.AIF"
updatestage
repeat while RunThruCount < 2 and (the MouseUp)
set the castNum of sprite 2 = gCast1 + 1
updatestage
Wait .3
if the mousedown then
exit repeat
end if
set the castNum of sprite 3 = gCast2 + 1
updatestage
Wait .3
if the mousedown then
exit repeat
end if
set the castNum of sprite 2 = gCast1
set the castNum of sprite 3 = gCast2 + 2
updatestage
Wait .3
if the mousedown then
exit repeat
end if
set the castNum of sprite 3 = gCast2 + 3
updatestage
Wait .3
if the mousedown then
exit repeat
end if
set the castNum of sprite 3 = gCast2 + 2
set the castNum of sprite 2 = gCast1 + 1
updatestage
Wait .3
if the mousedown then
exit repeat
end if
set the castNum of sprite 3 = gCast2 + 1
updatestage
Wait .3
if the mousedown then
exit repeat
end if
set the castNum of sprite 3 = gCast2
set the castNum of sprite 2 = gCast1
updatestage
Wait .3
if the mousedown then
exit repeat
end if
set RunThruCount = RunThruCount + 1
end repeat
set the castNum of sprite 2 = gCast1
set the castNum of sprite 3 = gCast2
updatestage
sound fadeOut 1, 2*60
set gbeenclicked = 0
end